home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d7 / gets15.arc / DISKETTE.IMG / lha / WORLDMAP.GSC < prev   
Text File  |  1991-05-29  |  4KB  |  150 lines
  1. ######################################################
  2. ##                                                  ##
  3. ##   ROTATING WORLD MAP DEMO FOR GETS VERSION 1.5   ##
  4. ##   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   ##
  5. ## World Map Clip Art created by: Ted Kocot 14@6852 ##
  6. ##  Animation created by: Scott C. Duensing 1@6852  ##
  7. ##                                                  ##
  8. ######################################################
  9.  
  10. ## SETUP ##
  11. sm9
  12. sv1|0
  13. co15|5
  14. cs
  15.  
  16. ## DISPLAY TEXT ##
  17. xy24|2
  18. prWelcome to Snafu Software's GETS...
  19. xy18|4
  20. prAn Entirely New World for Telecommunications!
  21. xy19|23
  22. co7|5
  23. pr(World Map Clip Art by: Ted Kocot 14@6852)
  24. xy20|21
  25. pr(Animation by: Scott C. Duensing 1@6852)
  26. pc1|0
  27.  
  28. ## DRAW BOXES/SHADOWS/BORDERS ##
  29. co8|5
  30. fb106|79|541|261
  31. co7|5
  32. fb86|69|531|251
  33. co1|5
  34. fb96|79|521|241
  35. co15|5
  36. hb0|0|639|349
  37. hb3|2|636|347
  38. fi4|15|1|1
  39. pc1|0
  40.  
  41. ## CREATE MAP ON BACK PAGE ##
  42. so100|75
  43. ss.75|.75
  44. co2|5
  45. ln57|107|57|70|43|54|16|58|29|50|20|50|27|45|20|41|31|38|24|33|34|24|73|29|90|24|112|41|136|37|134|31|137|28|141|30|143|39
  46. ln143|39|153|35|153|44|134|63|134|71|142|73|143|68|156|56|166|68|160|78|165|81|161|88|163|90|157|108|159|113|156|115|153|113|152|108|131|105
  47. ln131|105|116|110|116|116|124|121|129|119|131|120|128|125|137|127|138|131|145|135|149|133|154|135|160|135|163|145|183|153|178|170|175|171|176|173|165|203
  48. ln165|203|167|208|161|211|155|202|145|171|125|159|126|145|138|137|92|128|85|119|81|120|85|134|83|138|57|107
  49. fi2|2|92|100
  50. pc1|0
  51. fp180|43|188|31|208|28|220|43|212|58|214|61|207|63|200|71|195|69|190|48
  52. fp247|58|253|56|255|60|250|65|246|64
  53. fp297|65|301|66|301|71|305|77|301|82|293|79|297|75|295|73
  54. fp284|71|287|71|290|75|285|76
  55. fp508|97|513|99|512|103|507|102
  56. hp502|104|507|106|506|115|497|123|496|117|501|113
  57. fi2|2|503|114
  58. pc1|0
  59. ln294|87|305|86|307|84|315|81|317|75|321|76|319|80|336|77|338|64|334|64|335|58|331|60|329|69|322|71|319|68|318|70|312|67|324|46|331|45|358|54|355|59
  60. ln355|59|347|59|350|64|365|60|369|63|415|60|417|55|421|56|423|62|426|62|428|57|437|59|439|54|468|44|469|40|474|38|477|44|483|45|486|52|480|55|503|55
  61. ln503|55|511|50|516|53|521|51|531|55|535|63|523|71|523|80|518|83|515|80|515|72|508|71|505|88|512|88|496|102|493|100|490|105|494|108|485|118|478|118|481|124
  62. ln481|124|475|130|469|128|466|131|468|137|464|138|464|135|461|130|456|131|452|128|442|129|428|138|424|148|413|132|408|136|402|132|382|130|371|125|373|131|366|137|355|138
  63. ln355|138|348|118|348|112|352|106|339|104|339|100|333|99|331|103|328|101|330|98|327|93|320|94|321|103|317|104|315|97|306|94|297|96|295|100|288|102|286|94|292|91|294|87
  64. fi2|2|349|88
  65. ln300|160|303|157|303|147|297|139|287|137|278|132|273|121|276|112|283|107|297|105|301|108|316|111|318|109|330|110|341|115|347|114|345|117|342|118|348|139|359|144|355|148
  66. ln355|148|345|153|342|162|339|164|335|170|334|176|331|181|323|183|313|179|302|170|300|160
  67. fi2|2|318|140
  68. pc1|0
  69. fp342|167|346|165|346|178|340|180
  70. fp476|140|479|141|478|145|481|147|478|150|472|149|471|144
  71. fp510|150|511|147|524|148|523|150|527|152|526|154|518|154|516|151
  72. fp518|169|522|176|526|180|523|195|515|199|512|195|509|197|494|192|477|195|479|193|477|180|488|176|498|171|507|169|510|174|516|174
  73. fp537|183|542|182|541|186|536|185
  74. fp536|191|539|189|537|198|533|197
  75. pc1|0
  76.  
  77. ## RESET SCALE & OFFSET ##
  78. ss1|1
  79. so0|0
  80.  
  81. ## DRAW WHITE GRID LINES ##
  82. co15|5
  83. hb96|79|181|241
  84. hb181|79|266|241
  85. hb266|79|351|241
  86. hb351|79|436|241
  87. hb436|79|521|241
  88. hb96|79|521|133
  89. hb96|133|521|187
  90. hb96|187|521|241
  91. pc1|0
  92.  
  93. ## DEFINE ANIMATION MACROS ##
  94. mm1
  95.   ## MACRO 1 MOVES GLOBE 1/5 ROTATION TO THE LEFT (COUNTERCLOCKWISE) ##
  96.   cc-1
  97.   ci  96|79 | 181|241 | 0
  98.   ci 181|79 | 266|241 | 1
  99.   ci 266|79 | 351|241 | 2
  100.   ci 351|79 | 436|241 | 3
  101.   ci 436|79 | 521|241 | 4
  102.   pi  96|79 | 1 | pset
  103.   pi 181|79 | 2 | pset
  104.   pi 266|79 | 3 | pset
  105.   pi 351|79 | 4 | pset
  106.   pi 436|79 | 0 | pset
  107.   pc1|0
  108. em
  109.  
  110. mm2
  111.   ## MACRO 2 CALLS MACRO 1 FIVE TIMES TO ROTATE GLOBE ONE REVOLUTION ##
  112.   um1
  113.   um1
  114.   um1
  115.   um1
  116.   um1
  117. em
  118.  
  119. dl1
  120.  
  121. ## CALL MACRO 2 FIVE TIMES TO ROTATE GLOBE FIVE REVOLUTIONS ##
  122. um2
  123. um2
  124. um2
  125. um2
  126. um2
  127.  
  128. dl2
  129.  
  130. ## QUICKLY FADE TO WHITE AND THEN TO BLACK ##
  131. sv0|0
  132. ss1|1
  133. so0|0
  134. co8|0
  135. fb0|0|639|349
  136. co7|0
  137. fb0|0|639|349
  138. co15|0
  139. fb0|0|639|349
  140. co7|0
  141. fb0|0|639|349
  142. co8|0
  143. fb0|0|639|349
  144. co0|0
  145. fb0|0|639|349
  146.  
  147. ## RESET GETS AND EXIT ##
  148. ud
  149. eg
  150.